Top 10k strings from MicroHobby Semanal - Issue 021-024 (1985)(Hobby Press)(es)(Side A).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Magazines / Sinclair ZX Spectrum - Magazines - [TZX] (TOSEC-v2007-01-01) /

Back to the directory listing

   6 ;"PARE LA CINTA":
   4 i$(q)=f$(x)
   4 ;"PULSA ""5"""
   4 ;"GANADOR";
   4 );",puntos"
   3 F;"   ";A$;"   ";B$;:
   3 ;"     GRAFICO EN EJECUCION.      ":
   3 (A(j)*alto)
   3 "COLOR  ";c:
   2 t(j)=t(j)+(til-tis):
   2 inicio+ancho
   2 hy,hx;"  ":
   2 Pulse ""5""
   2 F;"   ";A$;"   ";B$;
   2 ;zx;" c.":
   2 ;"TIEMPO:";
   2 ;"SI QUIERE IR AL MENU PULSE 
   2 ;"PULSE ""5"""
   2 ;"PUERTO";
   2 ;"HASTA LA PROXIMA!!":
   2 ;"GAME OVER"
   2 ;"     GRAFICO EN EJECUCION       ":
   2 ;"                       ":
   2 ;"                        ";
   2 (NPROG/DOS)
   2 (A(j)*alto):
   2 "DIRECCION INICIAL (hex):";
   2 "22",CERO;B$:
   2                        
   2                       
   1 yy6,xx6;" 
   1 xxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzzzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxxxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxxzxzzzzzzzzzzzzzzzzxxxxxxxxxxxxxzzxzzzzzzzzzzzzzzzzxxxxxxxxxzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxxxzzzzzzzzzzzzzzzzzzzzzzzzzzzzzxzzzzzzzzzzzzzzzz                                8888888888888888888888888888888888888888888888888888888888888888
   1 xx6=xx6+.5
   1 v(q)=b(x):
   1 v(j)=v(j)+1
   1 v$(x)=i$(x):
   1 v$(q)=f$(x):
   1 tr=b(a(x))-(60
   1 tanques=tanques-1
   1 t(q)=b(x):
   1 t$(x)=i$(x):
   1 t$(q)=f$(x):
   1 s(q)=b(x):
   1 s(j)=s(j)+1
   1 s$=s$+"  ":
   1 s$(x)=i$(x):
   1 s$(q)=f$(x):
   1 record=punt
   1 punt=punt+1
   1 punt<record
   1 n;"RECORDMAN":
   1 n$="RECORMAN"
   1 n$(f)="ZX SPECTRUM":
   1 micro     
   1 max.)";a$:
   1 m(q)=b(x):
   1 m(j)=m(j)+3
   1 m(j)=m(j)+2
   1 m(j)=m(j)+1
   1 m$(x)=i$(x):
   1 m$(q)=f$(x):
   1 l$(x);"=";l(x);",puntos.":
   1 l$(q)=i$(x):
   1 i(x)=l(x):
   1 i(j)=l(j)+h:
   1 i(j)=i(j)+h:
   1 i$(x)=l$(x):
   1 hy,hx;"    ":
   1 fr)+".00":
   1 f$(x)=v$(x):
   1 f$(x)=t$(x):
   1 f$(x)=s$(x):
   1 f$(x)=m$(x):
   1 f$(x)=i$(x):
   1 div=max/10
   1 color=color+1
   1 cargador  f
   1 c$="    ":
   1 b(hf)=v(hf):
   1 b(hf)=t(hf):
   1 b(hf)=s(hf):
   1 b(hf)=m(hf):
   1 b$=b$+"            ":
   1 b$=b$+"             ":
   1 b$="      
   1 b$(n)=n$(n)+"
   1 a$=a$+"     ":
   1 Visualiza los resultados en pantalla
   1 Vciclista 
   1 UNO;"PONGA EN MARCHA LA CINTA";
   1 Te la pegaste !!! 
   1 TZX por Jose Manuel Claros
   1 Subrutina para carga de datos
   1 Subrutina de introduccion e instrucciones
   1 SPACE-UNO,X1
   1 SPACE-UNO,CERO:
   1 SPACE,LINEA:
   1 SPACE,CERO:
   1 SI DETIENES EL PROGRAMA PULSA GOTO 15 PARA SEGUIR
   1 SEG=SEG-MIN*60
   1 SEG;" SEGUNDOS"
   1 SACAR CARTA DE LA BARAJA
   1 SACAR CARTA CROUPIER
   1 Repite o finaliza el programa
   1 PopurriMC 
   1 Parejas   
   1 PUNTUACION
   1 PUNTOS CROUPIER
   1 PULSA ""5""
   1 OTRA CARTA?
   1 MEDIA=(E(J)+T(K)+F(L))/3
   1 Introduccion e instrucciones
   1 INSTRUCCIONES
   1 INICIALIZACION VARIABLES
   1 I,CERO;,,:
   1 Hobby Press
   1 Graficos  
   1 Gorila    8 
   1 Frogger   
   1 FREC=437500
   1 FIN DE JUEGO Y TABLA DE RECORDS
   1 FECHA=DIA1+DIA2+DIAS+DD
   1 FECHA2=FECHA
   1 FECHA1=FECHA
   1 F$="0000"+F$
   1 F$="000"+F$
   1 F$="00"+F$
   1 Escribe el error
   1 Entrada de nombres y fechas
   1 DOS=UNO+UNO
   1 DIBUJAR PANTALLA
   1 DIA1=AA1*365
   1 DATAS DE SONIDO
   1 D$="0123456789ABCDEF"
   1 Comestar  d
   1 Castellano
   1 Carga matrices de datos
   1 Calculo de los dias transcurridos desde principio de siglo
   1 Calculo de la posicion relativa de una curva con respecto a la otra
   1 Calculo de la posicion de los ciclos en el dia del nacimiento
   1 CUANTO APUESTAS?
   1 CREACION BARAJA
   1 CONTROL APUESTAS
   1 COMPATIBILIDADES BIORRITMICAS
   1 COLOCACION CARTA CROUPIER
   1 COLOCACION
   1 CINTA 06 CARA A
   1 CERO;"       ";
   1 CARAA     *
   1 C$="  Por favor, elija un programa  "
   1 Blackjack 
   1 B$="                                "
   1 Ano bisiesto
   1 ="L")-(378
   1 ;v$(a(x));"=";b(a(x));",puntos.":
   1 ;t$(a(x));"=";g$;",minutos.":
   1 ;s$(a(x));"=";b(a(x));",puntos.":
   1 ;record*10
   1 ;m$(a(x));"=";b(a(x));",puntos.":
   1 ;P$;P$;P$;P$;P$;P$
   1 ;P$;P$;P$;P$;P$;
   1 ;P$;P$;P$;
   1 ;J;"      "
   1 ;A$;"   ":
   1 ;A$;"    ":
   1 ;;"Ganador de la Vuelta por tiempo:"'n$(5
   1 ;,,,,,,,,,,,,
   1 ;"tanques:":
   1 ;"sprints"
   1 ;"instruccioneS":
   1 ;"YO QUE VOSOTROS ME LO PENSABA   ANTES DE CASARME!!":
   1 ;"X-eje.":
   1 ;"Tu mision es llegar arriba de lapantalla,para ello has de evitar que te cojan los guardianes del reino de los gorilas."
   1 ;"TIENES ";pu;" PUNTOS"
   1 ;"TE QUEDAN ";l;" `"
   1 ;"TE HAS PASADO":
   1 ;"TARDARE UNOS ";MIN;" MINUTOS";
   1 ;"SI QUIERE IR AL MENU PULSE N"
   1 ;"RECORDS"
   1 ;"Puntos=";h;"  ";"Tiempo=";
   1 ;"Pulse ""5"""
   1 ;"Pulsa una tecla para ver las";
   1 ;"Pulsa una tecla para empezar.":
   1 ;"Pulsa una tecla para continuar.":
   1 ;"Print Rango Save Load";
   1 ;"Por favor teclea tu nombre"
   1 ;"PUNTUACION"
   1 ;"PUNTOS=0"
   1 ;"PUNTOS=";
   1 ;"PULSE UNA TECLA":
   1 ;"PULSE LA SELECCION QUE DESEE"
   1 ;"PULSE I PARA INICIAR EL PROGRAMA Y S PARA SALIR!!"
   1 ;"PULSE G PARA GRABAR BITES"
   1 ;"PULSE CUALQUIER TECLA."
   1 ;"PULSA UNA TECLA":
   1 ;"PULSA S PARA INTROD. OTRO M/C";
   1 ;"PULSA O PARA PONER EN MARCHA M/C";
   1 ;"PULSA N PARA REPETIR INTROD.DAT.";
   1 ;"PULSA M PARA IR AL MENU";
   1 ;"PARA LA CINTA";
   1 ;"PANTALLAS:";pan
   1 ;"Otra partidita S/N ?"
   1 ;"OTRA VEZ SERA";
   1 ;"NO SOIS LA PAREJA IDEAL,PERO CASI!!":
   1 ;"NO ESTA MAL ";A$;
   1 ;"MENU PRINCIPAL"
   1 ;"M. Volantes"
   1 ;"LO VUESTRO ES ROMEO Y JULIETA!!"
   1 ;"LISTO PARA VERIFICAR":
   1 ;"JUGAMOS OTRA VEZ":
   1 ;"HL:";''"DE:"
   1 ;"HL: ";HL;
   1 ;"HEX.     DEC.":
   1 ;"HAS HECHO BLACK-JACK":
   1 ;"HAS APOSTADO ";a;" `"
   1 ;"Ganador de la Vuelta por puntos:"'n$(1
   1 ;"Ganador Sprints Especiales :"'n$(2
   1 ;"Ganador Premio de la MONTA
   1 ;"Ganador Metas Volantes :"'n$(3
   1 ;"GANADOR"
   1 ;"FROGGER"
   1 ;"FECHA FUERA DEL INTERVALO      1 ENERO 1900-31 DICIEMBRE 1999"
   1 ;"Este programa calcula las compatibilidades de una pareja  basandose en los ciclos vitales:Emotivo,Intelectual y Fisico (Biorritmos) dando el resultado en % de compatibilidad."
   1 ;"Escribe tu nombre a continuacion.Maximo 14 caracteres."
   1 ;"Equipo  ";i$(j)
   1 ;"ETAPA ";r''"Premio de los Sprints Especiales":
   1 ;"ETAPA ";r''"Premio de las  Metas  Volantes":
   1 ;"ETAPA ";r''"Clasificacion general por tiempo":
   1 ;"ETAPA ";r''"  GRAN PREMIO DE LA MONTA
   1 ;"ETAPA ";r
   1 ;"ESTAIS ROZANDO EL DIVORCIO!!":
   1 ;"ESPERA UNOS SEGUNDOS":
   1 ;"ESPERA UN MOMENTO"
   1 ;"EL CROUPIER SE PLANTA";
   1 ;"EL CROUPIER SE HA PASADO";
   1 ;"DISPONES DE ";l;" `";
   1 ;"DEC.  HEX."
   1 ;"DEC.     HEX.":
   1 ;"DE: ";DE;
   1 ;"Compatibilidad Intelectual=";T(K);"%"
   1 ;"Compatibilidad Fisica     =";F(L);"%"
   1 ;"Compatibilidad Emocional  =";E(J);"%"
   1 ;"Color Enter Tit. Menu"
   1 ;"CUANTO APUESTAS?"
   1 ;"COMPATIBILIDADES"
   1 ;"COMPATIBILIDADES BIORRITMICAS DE"
   1 ;"COMO PAREJA VAIS DE  MEDIOCRES POR LA VIDA!!":
   1 ;"COMANDOS";
   1 ;"BUENA SUERTE !!!!":
   1 ;"ANTES TENIAS ";g;" `"
   1 ;"?OTRA CARTA?";
   1 ;"?OTRA APUESTA?";
   1 ;"8=DERECHA";
   1 ;"7=ARRIBA ";
   1 ;"6=ABAJO ";
   1 ;"6/ VOLVER AL BASIC."
   1 ;"5=IZQUIERDA";
   1 ;"5/ CAMBIO DE GRAFICO.";
   1 ;"4/ 3D-GRAFICO.";
   1 ;"3/ AMBOS GRAFICOS.";
   1 ;"2/ GRAFICO LINEAL.";
   1 ;"1/ GRAFICO DE BARRAS.";
   1 ;"1-CONVERSION DEC-HEX."''"2-CONVERSION HEX-DEC."''"3-TRADUCCION SONIDOS A M/C."
   1 ;"1 al menos pero menos de 13":
   1 ;"0=SALTAR"
   1 ;".tiempo."
   1 ;".puntos."
   1 ;"**TECLAS DE MANEJO**";
   1 ;"***SUPER COCO***"
   1 ;"************"
   1 ;"( ";DIO2;"/";MOS2;"/";AN2;" )")'"Todo correcto (s,n)? ";
   1 ;"( ";DIO2;"/";MOS2;"/";AN2;" )"
   1 ;"( ";DIO1;"/";MOS1;"/";AN1;" )"'B$;
   1 ;"( ";DIO1;"/";MOS1;"/";AN1;" )"
   1 ;"!HEMOS EMPATADO!";
   1 ;" Vuelta Ciclista al ZX SPECTRUM"''"        Inscripciones"''"Numero de etapas y equipos"
   1 ;" Solo podras utilizar tu habili-dad saltarina cuando te encuen- tres frente a un agujero.":
   1 ;" Pulsa una tecla para continuar "
   1 ;" PARA LA CINTA "
   1 ;" MALA SUERTE ";
   1 ;" LASTIMA QUE SE ACABO  ";
   1 ;" Has logrado mejorar un record.";
   1 ;" Duracion etapa=";16
   1 ;" CROUPIER ";pc
   1 ;" CONVERSION HEXADECIMAL-DECIMAL"
   1 ;" CONVERSION DECIMAL-HEXADECIMAL";
   1 ;" BLACK  JACK ";
   1 ;" BLACK  JACK "
   1 ;"  NO TIENES ";a;" `  ":
   1 ;"  Final de la Vuelta Ciclista"'"     Resultados"''
   1 ;"  Cada division Y= ";div;" ";a$(1
   1 ;"   SI/NO    "
   1 ;"   ?OTRA  PARTIDA?   ";
   1 ;"   !!ENHORABUENA!!  ";
   1 ;"    PULSE LA OPCION DESEADA.    "
   1 ;"    PULSE LA OPCION DESEADA     ":
   1 ;"    INVALIDO (VALOR NEGATIVO)    ":
   1 ;"     SI/NO    ";
   1 ;"     GRABACION EFECTUADA.       ":
   1 ;"     ";;
   1 ;"      GRAFICO EN EJECUCION      "
   1 ;"      !PERDISTE!     ":
   1 ;"      !GANASTE!         ":
   1 ;"       Si o No       "
   1 ;"        CARGA EFECTUADA         ":
   1 ;"        ";
   1 ;"         QUIERES JUGAR?         "
   1 ;"         FUERA DE RANGO         ":
   1 ;"            ";
   1 ;"            ":
   1 ;"             ";
   1 ;"             "
   1 ;"                ";
   1 ;"                "
   1 ;"                                "
   1 /T*tanques)
   1 /(HL+30.125
   1 -n,p;"     ";
   1 ,D.L.: M-36598-84
   1 *d;" cuadros"
   1 *** CINTA-MICROHOBBY ***
   1 );"=";g$;",minutos"
   1 )-A(j))*alto)
   1 )*alto)+16
   1 )*(ancho+4
   1 )*(ancho+14
   1 (til-tis);",segundos":
   1 (tanques-4
   1 (t+tr)+"0":
   1 (inicio+ancho+4
   1 (inicio+ancho+2
   1 (inicio+ancho),16
   1 (fr+tr)+"0":
   1 (b(a(x))/60
   1 (VALOR)<"A"
   1 (POST1-POST2)+1
   1 (POSF1-POSF2)+1
   1 (POSE1-POSE2)+1
   1 (FREC*SEC+.5
   1 (FECHA2/33
   1 (FECHA2/28
   1 (FECHA2/23
   1 (FECHA1/33
   1 (FECHA1/28
   1 (FECHA1/23
   1 ((A(j)*alto)+20
   1 (((FECHA2/33
   1 (((FECHA2/28
   1 (((FECHA2/23
   1 (((FECHA1/33
   1 (((FECHA1/28
   1 (((FECHA1/23
   1 '"Clasificacion general por puntos":
   1 '"4-ANALISIS PROGRAMA M/C."''"5-INTRODUCCION PROGRAMA M/C."''"6-CARGAR BITES."''"7-MOVER BYTES EN MEMORIA."
   1 '" Las REGLAS DEL JUEGO son:        -Black Jack consiste en conse-guir  21 puntos con las dos pri-meras cartas.                     -las figuras valen 10 puntos.   -el AS vale 11 en las dos pri-meras cartas menos para el crou-pier,  que siempre le vale 11."
   1 '" El juego consiste en aproximar-te a 21 puntos, sin pasarte,  encuyo caso pierdes lo apostado.   A continuacion el croupier haralo mismo, con la ventaja  de quese plantara cuando te supere."
   1 "black jack"
   1 "b"+n),240
   1 "a"+n),255
   1 "VERIFICAR: REBOBINE"
   1 "UNIDADES Y(4
   1 "Tu Nombre?";
   1 "Titulo ?  ";b$:
   1 "TIEMPO EN SEGUNDOS:";SEC
   1 "SUPER COCO"
   1 "SPRINT","M.VOLANTE","MONTA
   1 "SINO PULSE OTRA TECLA":
   1 "SI QUIERE VARIAR EL RAMTOP      PULSE S":
   1 "SI QUIERE CARGAR LOS BYTES EN   ALGUNO DIRECCION ESPECIAL PULSE:"'
   1 "QUE GRAFICO PREFIERES ? ";opcion:
   1 "Pulsa ENTER para empezar ";a$:
   1 "PULSE UNA TECLA":
   1 "PULSE N PARA ABANDONAR"'"PULSE S PARA PARAR"
   1 "Numero de datos.";A(20
   1 "Nombre de tu pareja?";
   1 "NOTA BASIC (DESDE -12 HASTA 40):"'HL
   1 "NOMBRE:";
   1 "NOMBRE DEL JUGADOR=";
   1 "NOMBRE ? ";b$:
   1 "NOMBRE ?  ";b$:
   1 "MicroHobby Semanal numeros 21 a 24
   1 "Max.10 letras ";
   1 "LONGITUD(hex):";
   1 "LONGITUD (hex):";
   1 "GRAFICOS"
   1 "Fecha de nacimiento"'"AA?";AA:
   1 "Fecha de nacimiento de tu pareja";"AA?";AA:
   1 "Etapas ? ";etapa
   1 "Equipos ? ";pa
   1 "ESTAS SEGURO? (s/n) ";s$:
   1 "EL COMEDOR DE ESTRELLAS ES UNA  PLANTA QUE COMO SU NOMBRE INDICACOME ESTRELLAS Y SU VIDA ES DE  UNOS CIEN SEGUNDOS"''"TIENES PUES ESE TIEMPO PARA MA- NEJAR TU PLANTA Y COMER EL MAXI-MO NUMERO DE ESTRELLAS "''"LAS ETRELLAS QUE NO COJAS CON ELCENTRO DE LA BOCA NO SERAN DEVO-RADAS CUANDO COMAS UNA ESTRELLA SONARA UN PITIDO DE CONFIRMACION"'''"O-IZQUIERDA"'"P-DERECHA"'"1-COMER"
   1 "E-Frogger","F-Parejas","G-Gorila","H-Vciclista"
   1 "Desea copia por impresora (s,n)?";
   1 "Desea alguna otra compatibilidad(s,n)?";
   1 "DIRECCION TABLA(hex):";
   1 "DIRECCION NUEVA(hex):";
   1 "DIRECCION INICIO (hex):";
   1 "DIRECCION FINAL (hex):";
   1 "DIRECCION ESPECIAL:";DS:
   1 "DIRECCION COMIENZO (hex):";
   1 "DATOS (hex):";
   1 "DATO = ";A(i):
   1 "COLOR DE LA PRIMERA BARRA ? ";c:
   1 "ALGUNO MAS?:(S/N)";F$:
   1 "A-Graficos","B-Blackjack","C-Comestar","D-PopurriMC"
   1 "A","2","3","4","5","6","7","8","9","
   1 "64"+NPROG)
   1 "5";"cara: ";
   1 "5";"Programa: ";
   1 "5";"Programa inexistente":
   1 "5";"'R' Vuelve al menu"
   1 "5";"'L' Carga el programa";
   1 "32"-I;C$(
   1 "22",CERO;C$(I
   1 "22",CERO;B$
   1 "22",CERO;
   1 ","J","Q","K"
   1 "  -el croupier no se puede plan-tar antes de 17 puntos. Tu si.                                   Empiezas con 1000 `.  A ver concuantas acabas."
   1 "              ";
   1  by E. Sainz"
   1  Vuelta Ciclista al ZX Spectrum   Patrocinada por Micro Hobby   
   1  VARIABLES
   1  RICARDO DE PRADO 1984:
   1  F R A N C I S C O  O R C E R A"
   1                      
   1